105

Create Your Own Interface Diagram

105

STEP 1 continued

  Next

  If FoundSheet =​ 0 Then

    Set sheet =​ ActiveWorkbook.Sheets.Add(After:=​ActiveWorkbook.

Worksheets(ActiveWorkbook.Worksheets.Count))

    sheet.Name =​ “Diagram”

  End If

‘ ** end create all sheets required

STEP 2

For i = 1 To NumberOfRows

    Pair(i) =​ ““

    FoundInstance =​ 0

    For kk =​ 1 To k

      If k > 1 And CurrentSheet.Cells(i, 1) =​ Worksheets(“Entities”).Cells(kk +​ 1, 1) Then

        FoundInstance =​ 1

        Worksheets(“Entities”).Cells(kk +​ 1, 2) =​ Worksheets(“Entities”).Cells(kk +​

1, 2) +​ 1

        Worksheets(“Entities”).Cells(kk +​ 1, 4) =​ Worksheets(“Entities”).Cells(kk +​

1, 4) +​ 1

        Exit For

      Else

        FoundInstance =​ 0

      End If

    Next

    If FoundInstance =​ 0 Then

      k =​ k +​ 1

      Worksheets(“Entities”).Cells(k +​ 1, 1) =​ CurrentSheet.Cells(i, 1)

      Worksheets(“Entities”).Cells(k +​ 1, 2) =​ 1

      Worksheets(“Entities”).Cells(k +​ 1, 4) =​ 1

    End If

    FoundInstance =​ 0

    For kk =​ 1 To k

    If CurrentSheet.Cells(i, 2) =​ Worksheets(“Entities”).Cells(kk +​ 1, 1) Then

      FoundInstance =​ 1

      Worksheets(“Entities”).Cells(kk +​ 1, 3) =​ Worksheets(“Entities”).Cells(kk +​ 1, 3) +​ 1

      Worksheets(“Entities”).Cells(kk +​ 1, 4) =​ Worksheets(“Entities”).Cells(kk +​ 1, 4) +​ 1

      Exit For

    Else

      FoundInstance =​ 0

    End If

  Next

    If FoundInstance =​ 0 Then

  For i =​      k =​ k +​ 1

      Worksheets(“Entities”).Cells(k +​ 1, 1) =​ CurrentSheet.Cells(i, 2)

      Worksheets(“Entities”).Cells(k +​ 1, 3) =​ 1

      Worksheets(“Entities”).Cells(k +​ 1, 4) =​ 1

    End If

  Next

  NumberOfEntities =​ Worksheets(“Entities”).Cells(Rows.Count, 1).End(xlUp).Row

  Sheets(“IdenticalPairs”).Select

  Cells.Select